1 files changed, 11 insertions, 4 deletions
diff --git a/ZVEZDE.FOR b/ZVEZDE.FOR
index ce9e579..8664984 100644
--- a/ZVEZDE.FOR
+++ b/ZVEZDE.FOR
@@ -25,7 +25,8 @@
 50	FORMAT(1X,'Za nadaljevanje pritisni <ENTER>'//)
 	WRITE(*,51)
 51	FORMAT(1X,'(c) Lenasi 1990')
-	PAUSE '  '
+C	PAUSE '  '
+	read(*,*)
 54	WRITE(*,10)
         WRITE(*,31)
 31	FORMAT(1X,'N I V O J I  Z N A N J A '///)
@@ -39,7 +40,9 @@
 	WRITE(*,*)'Popravi![u','           ',' [10A'
 	GO TO 33
 	ENDIF
-	PAUSE '<ENTER>'
+C	PAUSE '<ENTER>'
+	WRITE(*,*)'<ENTER>'
+	read(*,*)
 	WRITE(*,10)
 55	WRITE(*,60)
 60	FORMAT(1X,'Stevilo'/1x,'vrstic =',$)
@@ -111,7 +114,9 @@ C	PAUSE '<ENTER> '
 	WRITE(*,120)IVRSTA,IPALIC
 120	FORMAT(1X,'Moja poteza'/1x,'Iz vrste =',I3/
      *  1x,'vzamem zvezd =',I3//1x,'Na sliki je'/1x,'staro stanje')
-	PAUSE '<ENTER>'
+C	PAUSE '<ENTER>'
+	write(*,*)'<ENTER>'
+	read(*,*)
 	CALL BRI
 	CALL BIC(CH,IVRSTA,IPALIC)
 	IZV(IVRSTA)=IZV(IVRSTA)-IPALIC
@@ -148,7 +153,9 @@ C	PAUSE '<ENTER>'
 	ENDIF
 	WRITE(*,180)
 180	FORMAT(//1X,'Na sliki je'/1x,'staro stanje')
-	PAUSE '<ENTER> '
+C	PAUSE '<ENTER> '
+	write(*,*)'<ENTER>'
+	read(*,*)
 	CALL BRI
 	CALL BIC(CH,IVRSTA,IPALIC)
 	IZV(IVRSTA)=IZV(IVRSTA)-IPALIC